|
Rund um Autocad : DWGNAME ohne Erweiterung
CADmium am 16.08.2004 um 08:18 Uhr (0)
Nachtrag : (setq DateiName (vl-filename-base(getvar dwgname ))) ------------------ - Thomas -
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Ausrichten per Script?
CADmium am 19.09.2012 um 16:25 Uhr (0)
mal auf die schnelle (ungetestet) zusammengeklöppelt :(defun C:TESTUS(/ FNAME)(vl-load-com)(defun DT:ALIGN(AP1X AP1Y ZP1X ZP1Y AP2X AP2Y ZP2X ZP2Y / OBJ FUZZY) (setq FUZZY 1.0) (if(or(and (setq OBJ(ssget "_C" (list (- AP1X FUZZY)(- AP1Y FUZZY))(list (+ AP1X FUZZY)(+ AP1Y FUZZY)))) (setq OBJ(ssname OBJ 0)) ) (vla-zoomwindow (vlax-get-acad-object) (vlax-3d-point (list (- AP1X 100) (- AP1Y 100))) (vlax-3d-point (list (+ AP1X 100) (+ AP1Y 100))) ) (setq OBJ (car(entsel (strcat ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Frage (Problem) mit Koordinaten Lisp
CADmium am 29.10.2004 um 11:01 Uhr (0)
getpoint liefert einen A 2D or 3D base point in the current UCS .. da fallen mir in Hinblick auf Ansichtsfenster alle möglichen Systemvariablem mit UCS.. ein .. ein wegen Zeitmangels ungetester Schuß ins Blaue .. ------------------ - Thomas - Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben.
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Beim speichern einer Zeichnung automatisch Layout benennen
CADmium am 09.11.2005 um 14:42 Uhr (0)
(DEFUN C:SICHALS (/ ITEM) (vl-load-com) (command "_.SAVEAS" "" "~") (vlax-for item(vla-get-layouts (vla-get-activedocument(vlax-get-acad-object)) ) (if(=(vla-get-taborder ITEM)1) (vla-put-name ITEM (vl-filename-base (getvar"dwgname"))) ) ) (command "_.save" ""))da ist es dann egal, wie das Layout heißt.P.S. ein Prog mit dem vlr-dwg-reactor ist noch eleganter ------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des ...
|
| In das Form Rund um AutoCAD wechseln |
